home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1995 November / Macworld Nov ’95.toast / Developers / Selection ƒ 2.5 / point+ < prev    next >
Encoding:
Text File  |  1994-08-27  |  117 b   |  10 lines  |  [TEXT/MSET]
  1. :class point+ super{ point }
  2.  
  3. :m moveto:  ( x y -- )
  4.     put: super ;m
  5.  
  6. :m move:  ( dx dy -- )
  7.     shift: super ;m
  8.  
  9. ;class
  10.